	  9  4   k820309    �
          11.1        Ц�_                                                                                                           
       tpcore_window_mod.F90 TPCORE_WINDOW_MOD              TPCORE_WINDOW INIT_WINDOW EXIT_TPCORE_WINDOW #         @                                                    #TPCORE_WINDOW%MIN    #TPCORE_WINDOW%MAX    #DT    #AE    #IM    #JM    #KM    #JFIRST 	   #JLAST 
   #NG    #MG    #NQ    #AK    #BK    #U    #V    #PS1    #PS2    #PS    #Q    #IORD    #JORD    #KORD    #N_ADJ    #XMASS    #YMASS    #MASSFLEW    #MASSFLNS    #MASSFLUP    #AREA_M2    #ND24     #ND25 !   #ND26 "                                                                 @                                 MIN               @                                 MAX           
  @@                                  
                
  @@                                   
                
@ @@                                                  
@ @@                                                  
@ @@                                                  
@ @@                             	                     
@ @@                             
                     
@ @@                                                  
  @@                                                  
@ @@                                                 
  @@                                                  
    p           5 � p        r    n                                       1     5 � p        r    n                                      1                                    
  @@                                                  
    p           5 � p        r    n                                       1     5 � p        r    n                                      1                                     
  @@                                                 
              &                   &                   &                                                     
 @@                                                 
               &                   &                   &                                                    
   @  �                                                
      5 � p        r 	   5 � p        r    p          5 � p        r      & 5 � p        r 	   5 � p        r 
       5 � p        r        5 � p        r 
   5 � p        r 	   p                                   
   @  �                                                
      5 � p        r 	   5 � p        r    p          5 � p        r      & 5 � p        r 	   5 � p        r 
       5 � p        r        5 � p        r 
   5 � p        r 	   p                                   D @@  �                                                
       5 � p        r 	   5 � p        r    p          5 � p        r      & 5 � p        r 	   5 � p        r 
       5 � p        r        5 � p        r 
   5 � p        r 	   p                                    
D @@                                                
               &                   &                   &                   &                                                     
  @@                                                  
  @@                                                  
@ @@                                                   
  @@                                                   
  @@                                                 
              &                   &                   &                                                     
  @@                                                 
              &                   &                   &                                                     
D  @                                                
               &                   &                   &                   &                                                     
D  @                                                
               &                   &                   &                   &                                                     
D  @                                                
               &                   &                   &                   &                                                    
  @@                                                 
    p          5 � p        r        5 � p        r                                
  @@                                                   
  @@                             !                     
   @                              "           #         @                                  #               
   #INIT_WINDOW%COS $   #INIT_WINDOW%SIN %   #INIT_WINDOW%ATAN &   #IM '   #JM (   #KM )   #JFIRST *   #JLAST +   #NG ,   #MG -   #DT .   #AE /   #CLAT 0                 @                            $     COS               @                            %     SIN               @                            &     ATAN           
   @                              '                     
   @                              (                     
   @                              )                     D  @                              *                      D  @                              +                      
   @                              ,                     
   @                              -                     
   @                              .     
                
   @                              /     
               
   @  �                            0                    
 
   p           & p          5 � p        r (   n                                       1       5 � p        r (   n                                      1p         p                                   #         @                                  1                   #EXIT_TPCORE_WINDOW%ALLOCATED 2                 @                            2     ALLOCATED    �   0      fn#fn '   �   =   b   uapp(TPCORE_WINDOW_MOD      �      TPCORE_WINDOW "   �  <      TPCORE_WINDOW%MIN "     <      TPCORE_WINDOW%MAX !   U  @   a   TPCORE_WINDOW%DT !   �  @   a   TPCORE_WINDOW%AE !   �  @   a   TPCORE_WINDOW%IM !     @   a   TPCORE_WINDOW%JM !   U  @   a   TPCORE_WINDOW%KM %   �  @   a   TPCORE_WINDOW%JFIRST $   �  @   a   TPCORE_WINDOW%JLAST !     @   a   TPCORE_WINDOW%NG !   U  @   a   TPCORE_WINDOW%MG !   �  @   a   TPCORE_WINDOW%NQ !   �  &  a   TPCORE_WINDOW%AK !   �  &  a   TPCORE_WINDOW%BK     !  �   a   TPCORE_WINDOW%U     �  �   a   TPCORE_WINDOW%V "   �	  �  a   TPCORE_WINDOW%PS1 "     �  a   TPCORE_WINDOW%PS2 !   �  �  a   TPCORE_WINDOW%PS     %  �   a   TPCORE_WINDOW%Q #   �  @   a   TPCORE_WINDOW%IORD #   9  @   a   TPCORE_WINDOW%JORD #   y  @   a   TPCORE_WINDOW%KORD $   �  @   a   TPCORE_WINDOW%N_ADJ $   �  �   a   TPCORE_WINDOW%XMASS $   �  �   a   TPCORE_WINDOW%YMASS '   q  �   a   TPCORE_WINDOW%MASSFLEW '   E  �   a   TPCORE_WINDOW%MASSFLNS '     �   a   TPCORE_WINDOW%MASSFLUP &   �  �   a   TPCORE_WINDOW%AREA_M2 #   �  @   a   TPCORE_WINDOW%ND24 #   �  @   a   TPCORE_WINDOW%ND25 #   !  @   a   TPCORE_WINDOW%ND26    a  �       INIT_WINDOW     B  <      INIT_WINDOW%COS     ~  <      INIT_WINDOW%SIN !   �  =      INIT_WINDOW%ATAN    �  @   a   INIT_WINDOW%IM    7  @   a   INIT_WINDOW%JM    w  @   a   INIT_WINDOW%KM #   �  @   a   INIT_WINDOW%JFIRST "   �  @   a   INIT_WINDOW%JLAST    7  @   a   INIT_WINDOW%NG    w  @   a   INIT_WINDOW%MG    �  @   a   INIT_WINDOW%DT    �  @   a   INIT_WINDOW%AE !   7  V  a   INIT_WINDOW%CLAT #   �  j       EXIT_TPCORE_WINDOW -   �  B      EXIT_TPCORE_WINDOW%ALLOCATED 